home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / DB4PPSAM.EXE / BDCFILL.PRG < prev    next >
Text File  |  1993-05-10  |  2KB  |  65 lines
  1. FUNCTION BDCFill
  2. PARAMETERS pcField
  3. *----------------------------------------------------------------------------
  4. * NAME
  5. *   BDCFill - Read in the config file from CD_FILE_1 and display values
  6. *
  7. * DESCRIPTION
  8. *
  9. * PARAMETERS
  10. *   pcField    = Field name that called this CD_FILE_1 or BT_EDITCF
  11. *
  12. *----------------------------------------------------------------------------
  13.   IF TYPE( "aClkObj[1,1]" ) = "N"
  14.     IF TYPE( "pn_msg" ) = "N" .AND. pn_msg = LBN_SELCHA
  15.       *-- No code for ON POPUP action
  16.     ELSE
  17.       IF .NOT. ISBLANK( CD_FILE_1 ) .AND. ;
  18.          .NOT. ( "*" $ CD_FILE_1 .OR. "?" $ CD_FILE_1 ) .AND. ;
  19.          FILE( TRIM( CD_FILE_1 ) )
  20.  
  21.         fhCfg = 0
  22.         fhCfg = FOPEN( TRIM( CD_FILE_1 ), "r" )
  23.         IF fhCfg > 0
  24.           DO WHILE .NOT. FEOF( fhCfg )
  25.             cLineIn = FGETS( fhCfg )
  26.             IF .NOT. ISBLANK( cLineIn )
  27.               cSwitch = LEFT( cLineIn, 2 )
  28.               DO CASE
  29.  
  30.                 CASE cSwitch = "-c"
  31.                   CK_OPTI_1 = .T.
  32.                   DO TButton WITH WM_PAINT, BN_UNHILITE, GetId( "CK_OPTI_1")
  33.  
  34.                 CASE cSwitch = "-t"
  35.                   CK_OPTI_2 = .T.
  36.                   DO TButton WITH WM_PAINT, BN_UNHILITE, GetId( "CK_OPTI_2" )
  37.  
  38.                 CASE cSwitch = "-w"
  39.                   CK_OPTI_3 = .T.
  40.                   DO TButton WITH WM_PAINT, BN_UNHILITE, GetId( "CK_OPTI_3" )
  41.  
  42.                 CASE cSwitch = "-X"
  43.                   CK_OPTI_4 = .T.
  44.                   DO TButton WITH WM_PAINT, BN_UNHILITE, GetId( "CK_OPTI_4" )
  45.  
  46.                 CASE cSwitch = "-x"
  47.                   CK_OPTI_4 = .F.
  48.                   DO TButton WITH WM_PAINT, BN_UNHILITE, GetId( "CK_OPTI_4" )
  49.  
  50.               ENDCASE
  51.  
  52.             ENDIF
  53.           ENDDO
  54.  
  55.           IF FCLOSE( fhCfg )
  56.           ENDIF
  57.         ENDIF
  58.       ENDIF
  59.     ENDIF
  60.   ENDIF   
  61.  
  62. RETURN .T.
  63. *-- EOF: BDCFill( pcField )
  64. 
  65.